﻿Imports System.Text
Imports HelperUT

<TestClass()>
Public Class UT_HelperUT

    <TestMethod()>
    Public Sub NewDelete()

        Dim oFileINI_Manager As FileINI_Manager

        ' Default constructor
        oFileINI_Manager = New FileINI_Manager
        Assert.AreEqual(oFileINI_Manager.intVerbose, 0)
        Assert.AreEqual(oFileINI_Manager.strProjectName, "")
        Assert.AreNotEqual(oFileINI_Manager.listTestSuites, Nothing)
        oFileINI_Manager = Nothing

        ' Param constructor
        oFileINI_Manager = New FileINI_Manager(12, "projectName")
        Assert.AreEqual(oFileINI_Manager.intVerbose, 12)
        Assert.AreEqual(oFileINI_Manager.strProjectName, "projectName")
        Assert.AreNotEqual(oFileINI_Manager.listTestSuites, Nothing)
        oFileINI_Manager = Nothing

        ' Clear
        oFileINI_Manager = New FileINI_Manager(12, "projectName")
        oFileINI_Manager.Clear()
        Assert.AreEqual(oFileINI_Manager.intVerbose, 0)
        Assert.AreEqual(oFileINI_Manager.strProjectName, "")
        Assert.AreNotEqual(oFileINI_Manager.listTestSuites, Nothing)
        oFileINI_Manager = Nothing

    End Sub

    <TestMethod()>
    Public Sub LoadFileMain()

    End Sub

End Class
